home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
allfiles
/
angry
/
scene1_2.dir
/
00001_Script_--movieScript
next >
Wrap
Text File
|
1999-03-01
|
3KB
|
100 lines
global fileSep
on startMovie
--preload panning downChix--
preLoad 241, 260
initMovie
set the exitLock to TRUE
end startMovie
on initMovie
if the machineType = 256 then
put "\" into fileSep
else
put ":" into fileSep
end if
when keyDown then setVolume() -- to adjust volume by number keys
end initMovie
on setVolume
set inKey = the key
if inKey = "q" OR inKey = "Q" then go to frame "quitArtRight" of movie "intro"
if charToNum(inKey) >= charToNum ("0") and charToNum (inKey) <= charToNum ("9") then
set newVol = integer (the key)
if the soundLevel <> newVol then set the soundLevel = newVol
end if
end setVolume
on idle
checkExit
set point1 = point(the mouseH, the mouseV)
set point2 = point(93, 19)
set point3 = point(322, 19)
set point4 = point(571, 19)
set rrDeltaLoc = point1 - point2 --rewind button
set ssDeltaLoc = point1 - point3 --stop button
set ffDeltaLoc = point1 - point4 --fast forward button
set dX = getAt(rrDeltaLoc, 1)
set dY = getAt(rrDeltaLoc, 2)
set sdX = getAt(ssDeltaLoc, 1)
set sdY = getAt(ssDeltaLoc, 2)
set fdX = getAt(ffDeltaLoc, 1)
set fdY = getAt(ffDeltaLoc, 2)
set rr = sqrt( dX*dX + dY*dY )
set ss = sqrt( sdX*sdX + sdY*sdY )
set ff = sqrt( fdX*fdX + fdY*fdY )
-- removed fading option during beta -kl
if rr <= 60 then
if the locH of sprite(95) > 650 then
set the loc of sprite(95) = point(93, 19)
end if
if rr < 20 then set rr = 4
set the blend of sprite(95) = 100 -- - (rr * 2)
else
if the blend of sprite(95) <> 0 then set the blend of sprite(95) = 0
set the locH of sprite(95) = 1000
end if
if ss <= 75 then
if the locH of sprite(96) > 650 then
set the loc of sprite(96) = point(322, 19)
end if
if ss < 20 then set ss = 4
set the blend of sprite(96) = 100 -- - (ss * 2)
else
if the blend of sprite(96) <> 0 then set the blend of sprite(96) = 0
set the locH of sprite(96) = 1000
end if
if ff <= 60 then
if the locH of sprite(97) > 650 then
set the loc of sprite(97) = point(571, 19)
end if
if ff < 20 then set ff = 4
set the blend of sprite(97) = 100 -- - (ff * 2)
else
if the blend of sprite(97) <> 0 then set the blend of sprite(97) = 0
set the locH of sprite(97) = 1000
end if
end
on checkExit
if the commandDown and ¼
(the key = "." or the key = "q") and ¼
the exitLock = TRUE then
go to frame "quitARTWrong" of movie "intro"
end if
end checkExit